home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
RouteMap.zprx
< prev
next >
Wrap
Text File
|
1994-11-02
|
2KB
|
71 lines
/* $VER: RouteMap.zprx 1.31 (01.03.94) · by M.Pietz
ARexx-Skript für Zpoint >=V37.121 & RouteMap3.0
erstellt von Markus Pietz (M_PIETZ@HOT.GUN.DE)
Mit diesem Script kann man aus dem Programm ZPoint
über ARexx das Programm RouteMap steuern.
Das Skript kümmert um den Aufruf von RouteMap. Wenn das
Programm noch nicht läuft startet es dieses.
Was Sie machen müssen, ist RouteMap und seine Hilfdateien
in ein Verzeichnis kopieren und den Pfad unten eintragen.
Dann dieses Skript unter dem Namen "RouteMap.zprx" in das Verzeichnis
"Rexx/", das sich im aktuelles Verzeichnis von ZPoint befindet, auslagern.
In der Datei 'fkeys.zp' dieses Script auf eine Funktionstaste legen.
z.b.:
F1:sys:rexxc/rx Work:ZPoint/Rexx/RouteMap.zprx %s
*/
/* Strings als Rückgabewerte zulassen */
options results
/* Name des ARexxports/PubScreens von ZPoint auslesen */
parse arg ZPScreen
/* Verzeichnis wo RouteMap3 ist */
/* Am Ende '/' oder ':' nicht vergessen ! */
Path = 'DH2:RouteMap/'
/* Name des Programms */
File = 'RouteMap3'
/* Übergabeparamter nach belieben */
Parameter = 'NOCOMMODITY WINTOFRONT NOICON PATH='|| Path 'PUBSCREEN='||ZPScreen
/* Error Strings */
str = "Konnte das Programm RouteMap nicht finden."'0a'x"Überprüfen Sie bitte die Konfiguration:"
str2= '0a'x "Pfad: "Path '0a'x "Filename: "File
/* akt. Port ist ZPoint */
address VALUE ZPScreen
/* RouteMap starten, falls es noch nicht läuft */
if show("p","RouteMap_REXX")=0 then do
if exists(Path||File) then do
/* RouteMap Programm starten */
address command 'run >NIL:' Path||File Parameter
/* Warten das RouteMap seinen ARexx-Port geöffnet hat */
/* 'WaitForPort' wartet 10 sec darauf, das */
/* der Port 'RouteMap_REXX' geöffnet wird */
address command 'SYS:REXXC/WaitforPort RouteMap_REXX'
if show("p","RouteMap_REXX")=0 then do
RequestNotify 'Konnte RouteMap nicht starten'
exit
end
end
else do
/* OUPS ! Konnte das Programm nicht finden */
/* Fehlermeldung ausgeben */
RequestNotify str || str2
exit /* Und Schluß */
end
end
/* Routestring zur akt. Nachricht */
MESSAGEINFO ROUTE
route = RESULT
/* Route anzeigen */
address VALUE 'RouteMap_REXX'
DrawRoute route
/*ShowInfo*/